home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 501-525 / disk_503 / pcq / pcq12a.lzh / Examples / WriteHex.p < prev   
Text File  |  1990-07-21  |  574b  |  32 lines
  1. program WriteHexTest;
  2.  
  3. { I can't remember what prompted me to write this program. }
  4.  
  5.  
  6. Procedure WriteHex(num : Integer);
  7. var
  8.     Result : Array [1..8] of Char;
  9.     index  : Short;
  10.  
  11.     Function ToHex(n : Short) : Char;
  12.     begin
  13.     if n < 10 then
  14.         ToHex := Chr(n + Ord('0'))
  15.     else
  16.         ToHex := Chr(n - 10 + Ord('A'));
  17.     end;
  18.  
  19. begin
  20.     for index := 8 downto 1 do begin
  21.     Result[index] := ToHex(num and 15);
  22.     num := num shr 4;
  23.     end;
  24.     Write(Result);
  25. end;
  26.  
  27. begin
  28.     WriteHex($01010101); WriteLn;
  29.     WriteHex($10101010); WriteLn;
  30.     WriteHex(MaxInt); WriteLn;
  31. end.
  32.